* faces.el (x-resolve-font-name): Give correct error message
authorJim Blandy <jimb@redhat.com>
Sun, 30 May 1993 17:28:33 +0000 (17:28 +0000)
committerJim Blandy <jimb@redhat.com>
Sun, 30 May 1993 17:28:33 +0000 (17:28 +0000)
 depending on whether or not FACE was non-nil.

lisp/faces.el

index 4b6d3812d2d9207da8458fafc22915334c7e5994..7788617ea2797631732f6652c88ea9f26f771de1 100644 (file)
@@ -428,9 +428,9 @@ also the same size as FACE on FRAME."
       (let ((fonts (x-list-fonts pattern face frame)))
        (or fonts
            (if face
-               (error "no fonts match `%S'." pattern)
-             (error "no fonts matching pattern are the same size as `%s'."
-                    face)))
+               (error "no fonts matching pattern are the same size as `%s'."
+                      face)
+             (error "no fonts match `%S'." pattern)))
        (car fonts))
     (cdr (assq 'font (frame-parameters (selected-frame))))))